home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / New Stuffed Files / CarShop.Sit / Copy of Cars / card_6113.txt < prev    next >
Encoding:
Text File  |  1988-09-03  |  5.5 KB  |  260 lines

  1. -- card: 6113 from stack: in
  2. -- bmap block id: 6831
  3. -- flags: 4000
  4. -- background id: 6395
  5. -- name: Loan
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global SN
  9.   hide menuBar
  10.   if SN is not empty then
  11.     put field "Model" of card SN into card field "Model" of card "Loan"
  12.     put field "Make" of card SN into card field "Make" of card "Loan"
  13.     put field "Total" of card SN into card field "ListPrice" of card "Loan"
  14.     put field "dTotal" of card SN into card field "DisPrice" of card "Loan"
  15.   end if
  16. end openCard
  17.  
  18. on closeCard
  19.   repeat with i = 1 to the number of card fields
  20.     put empty into card field i
  21.   end repeat
  22.   repeat with i = 1 to 3
  23.     put empty into field i
  24.   end repeat
  25.   put empty into field 5
  26. end closeCard
  27.  
  28.  
  29. -- part 1 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=3 top=1 right=43 bottom=60
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 20098 / 20098
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: New Button
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   go to stack "Home"
  44. end mouseUp
  45.  
  46.  
  47.  
  48.  
  49. -- part 2 (field)
  50. -- low flags: 01
  51. -- high flags: 0000
  52. -- rect: left=180 top=295 right=319 bottom=317
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 65535
  56. -- font id: 21
  57. -- text size: 18
  58. -- style flags: 0
  59. -- line height: 24
  60. -- part name: CL
  61.  
  62.  
  63. -- part 5 (field)
  64. -- low flags: 00
  65. -- high flags: 0000
  66. -- rect: left=61 top=20 right=47 bottom=465
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 21
  71. -- text size: 24
  72. -- style flags: 256
  73. -- line height: 32
  74. -- part name: 
  75.  
  76.  
  77. -- part 6 (field)
  78. -- low flags: 01
  79. -- high flags: 0002
  80. -- rect: left=2 top=49 right=67 bottom=230
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Model
  89.  
  90.  
  91. -- part 7 (field)
  92. -- low flags: 01
  93. -- high flags: 0002
  94. -- rect: left=232 top=49 right=67 bottom=366
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Make
  103.  
  104.  
  105. -- part 8 (field)
  106. -- low flags: 01
  107. -- high flags: 0002
  108. -- rect: left=441 top=49 right=67 bottom=507
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 65535
  112. -- font id: 3
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: ListPrice
  117.  
  118.  
  119. -- part 9 (field)
  120. -- low flags: 01
  121. -- high flags: 0002
  122. -- rect: left=177 top=69 right=87 bottom=346
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 65535
  126. -- font id: 3
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: DisPrice
  131.  
  132.  
  133. -- part 10 (field)
  134. -- low flags: 00
  135. -- high flags: 0002
  136. -- rect: left=177 top=86 right=104 bottom=346
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 65535
  140. -- font id: 3
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Add'l Charges
  145.  
  146.  
  147. -- part 11 (field)
  148. -- low flags: 00
  149. -- high flags: 0002
  150. -- rect: left=177 top=103 right=121 bottom=346
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 65535
  154. -- font id: 3
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: TradeIn
  159.  
  160.  
  161. -- part 12 (field)
  162. -- low flags: 00
  163. -- high flags: 0002
  164. -- rect: left=177 top=120 right=138 bottom=346
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 65535
  168. -- font id: 3
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: TaxRate
  173.  
  174.  
  175. -- part 13 (field)
  176. -- low flags: 01
  177. -- high flags: 0000
  178. -- rect: left=177 top=137 right=155 bottom=346
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 65535
  182. -- font id: 3
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Taxes
  187.  
  188.  
  189. -- part 14 (field)
  190. -- low flags: 00
  191. -- high flags: 0002
  192. -- rect: left=177 top=154 right=172 bottom=346
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 65535
  196. -- font id: 3
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Downpayment
  201.  
  202.  
  203. -- part 15 (button)
  204. -- low flags: 00
  205. -- high flags: A003
  206. -- rect: left=349 top=199 right=221 bottom=497
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: CALCULATE PRINCIPLE
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   put card field "taxRate" into TR
  218.   put card field "DisPrice" into DP
  219.   put card field "Add'l Charges" into AC
  220.   put card field "DownPayment" into PAY
  221.   put card field "TradeIn" into TI
  222.   put (DP + AC - TI) into CO
  223.   put (CO * TR)/100 into card field "Taxes"
  224.   put card field "Taxes" into TX
  225.   put (CO + TX - PAY) into field "A"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 16 (button)
  231. -- low flags: 00
  232. -- high flags: 0000
  233. -- rect: left=450 top=6 right=44 bottom=504
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 2162 / 2162
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: GoBack
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   global SN
  245.   go to card SN
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part contents for background part 4
  251. ----- text -----
  252. 2244.891951
  253.  
  254. -- part contents for background part 8
  255. ----- text -----
  256. Principle  $┬á
  257. # of Payments┬á    
  258. Interest Rate┬á
  259. Payment if APR $ 
  260. Payment if Car Loan